home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / SCSI.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  520b  |  36 lines
  1. Unit SCSI;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tSCSICmd = Record
  8.           scsi_Data: pInteger;
  9.           scsi_Length: LongInt;
  10.           scsi_Actual: LongInt;
  11.           scsi_Command: pShortInt;
  12.           scsi_CmdLength: Integer;
  13.           scsi_CmdActual: Integer;
  14.           scsi_Flags: ShortInt;
  15.           scsi_Status: ShortInt;
  16.         End;
  17.  
  18.  
  19.  
  20. Const
  21.   HFERR_NoBoard = $32;
  22.   HD_SCSICMD = $1C;
  23.   SCSIF_READ = $1;
  24.   SCSIF_WRITE = $0;
  25.   HFERR_Phase = $2A;
  26.   HFERR_BadStatus = $2D;
  27.   HFERR_SelfUnit = $28;
  28.   HFERR_DMA = $29;
  29.   HFERR_SelTimeout = $2C;
  30.   HFERR_Parity = $2B;
  31.  
  32.  
  33.  
  34.  
  35. End.
  36.